home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / clisp-li.000 / clisp-li / clisp-1996-07-22 / src / defs3.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1996-07-22  |  16.1 KB  |  271 lines
  1. (SYSTEM::VERSION '(19071996.))
  2. #Y(#:TOP-LEVEL-FORM-1-1
  3.    #18Y(00 00 00 00 00 00 00 00 00 01 D8 D9 62 30 E3 3D 19 01) "COMMON-LISP"
  4.    ("CL")
  5.   )
  6. #Y(#:TOP-LEVEL-FORM-1-2
  7.    #17Y(00 00 00 00 00 00 00 00 00 01 D8 D9 30 DF 3D 19 01)
  8.    (#:MAKE-PACKAGE #:FLET #:LABELS #:MACROLET) "COMMON-LISP"
  9.   )
  10. #Y(#:TOP-LEVEL-FORM-1-3
  11.    #17Y(00 00 00 00 00 00 00 00 00 01 D8 D9 30 E0 3D 19 01) ("LISP" "CLOS")
  12.    "COMMON-LISP"
  13.   )
  14. #Y(#:TOP-LEVEL-FORM-1-4 #15Y(00 00 00 00 00 00 00 00 00 01 D8 30 D0 19 01)
  15.    "COMMON-LISP"
  16.   )
  17. #Y(#:TOP-LEVEL-FORM-2 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 02 30 E4 19 01)
  18.    "COMMON-LISP"
  19.   )
  20. #Y(#:TOP-LEVEL-FORM-3 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 01 30 DB 19 01)
  21.    (ARRAY ATOM BIGNUM BIT BIT-VECTOR CHARACTER COMMON COMPILED-FUNCTION COMPLEX
  22.      CONS DOUBLE-FLOAT FIXNUM FLOAT FUNCTION HASH-TABLE INTEGER KEYWORD LIST
  23.      LOGICAL-PATHNAME LONG-FLOAT NIL NULL NUMBER PACKAGE PATHNAME RANDOM-STATE
  24.      RATIO RATIONAL READTABLE REAL SEQUENCE SHORT-FLOAT SIMPLE-ARRAY
  25.      SIMPLE-BIT-VECTOR SIMPLE-STRING SIMPLE-VECTOR SINGLE-FLOAT STANDARD-CHAR
  26.      STREAM FILE-STREAM SYNONYM-STREAM BROADCAST-STREAM CONCATENATED-STREAM
  27.      TWO-WAY-STREAM ECHO-STREAM STRING-STREAM STRING STRING-CHAR SYMBOL T
  28.      VECTOR SATISFIES VALUES MOD SIGNED-BYTE UNSIGNED-BYTE RESTART CONDITION
  29.      WARNING SERIOUS-CONDITION ERROR SIMPLE-CONDITION SIMPLE-WARNING
  30.      SIMPLE-ERROR STORAGE-CONDITION TYPE-ERROR SIMPLE-TYPE-ERROR PROGRAM-ERROR
  31.      CONTROL-ERROR PACKAGE-ERROR PRINT-NOT-READABLE STREAM-ERROR END-OF-FILE
  32.      FILE-ERROR CELL-ERROR UNBOUND-VARIABLE UNDEFINED-FUNCTION ARITHMETIC-ERROR
  33.      DIVISION-BY-ZERO FLOATING-POINT-OVERFLOW FLOATING-POINT-UNDERFLOW
  34.      BUILT-IN-CLASS STANDARD-CLASS STANDARD-GENERIC-FUNCTION STANDARD-METHOD
  35.      STANDARD-OBJECT STRUCTURE-CLASS LAMBDA-LIST-KEYWORDS
  36.      LAMBDA-PARAMETERS-LIMIT NIL T CALL-ARGUMENTS-LIMIT MULTIPLE-VALUES-LIMIT
  37.      PI BOOLE-CLR BOOLE-SET BOOLE-1 BOOLE-2 BOOLE-C1 BOOLE-C2 BOOLE-AND
  38.      BOOLE-IOR BOOLE-XOR BOOLE-EQV BOOLE-NAND BOOLE-NOR BOOLE-ANDC1 BOOLE-ANDC2
  39.      BOOLE-ORC1 BOOLE-ORC2 MOST-POSITIVE-FIXNUM MOST-NEGATIVE-FIXNUM
  40.      MOST-POSITIVE-SHORT-FLOAT LEAST-POSITIVE-SHORT-FLOAT
  41.      LEAST-NEGATIVE-SHORT-FLOAT MOST-NEGATIVE-SHORT-FLOAT
  42.      MOST-POSITIVE-SINGLE-FLOAT LEAST-POSITIVE-SINGLE-FLOAT
  43.      LEAST-NEGATIVE-SINGLE-FLOAT MOST-NEGATIVE-SINGLE-FLOAT
  44.      MOST-POSITIVE-DOUBLE-FLOAT LEAST-POSITIVE-DOUBLE-FLOAT
  45.      LEAST-NEGATIVE-DOUBLE-FLOAT MOST-NEGATIVE-DOUBLE-FLOAT
  46.      MOST-POSITIVE-LONG-FLOAT LEAST-POSITIVE-LONG-FLOAT
  47.      LEAST-NEGATIVE-LONG-FLOAT MOST-NEGATIVE-LONG-FLOAT
  48.      LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT
  49.      LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT
  50.      LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT
  51.      LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT
  52.      LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT
  53.      LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT
  54.      LEAST-POSITIVE-NORMALIZED-LONG-FLOAT LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT
  55.      SHORT-FLOAT-EPSILON SINGLE-FLOAT-EPSILON DOUBLE-FLOAT-EPSILON
  56.      LONG-FLOAT-EPSILON SHORT-FLOAT-NEGATIVE-EPSILON
  57.      SINGLE-FLOAT-NEGATIVE-EPSILON DOUBLE-FLOAT-NEGATIVE-EPSILON
  58.      LONG-FLOAT-NEGATIVE-EPSILON CHAR-CODE-LIMIT CHAR-FONT-LIMIT
  59.      CHAR-BITS-LIMIT CHAR-CONTROL-BIT CHAR-META-BIT CHAR-SUPER-BIT
  60.      CHAR-HYPER-BIT ARRAY-RANK-LIMIT ARRAY-DIMENSION-LIMIT
  61.      ARRAY-TOTAL-SIZE-LIMIT INTERNAL-TIME-UNITS-PER-SECOND *MACROEXPAND-HOOK*
  62.      *GENSYM-COUNTER* *PACKAGE* *MODULES* *RANDOM-STATE* *EVALHOOK* *APPLYHOOK*
  63.      + ++ +++ - * ** *** / // /// *STANDARD-INPUT* *STANDARD-OUTPUT*
  64.      *ERROR-OUTPUT* *QUERY-IO* *DEBUG-IO* *TERMINAL-IO* *TRACE-OUTPUT*
  65.      *READ-BASE* *READ-SUPPRESS* *READTABLE* *PRINT-READABLY* *PRINT-ESCAPE*
  66.      *PRINT-PRETTY* *PRINT-CIRCLE* *PRINT-BASE* *PRINT-RADIX* *PRINT-CASE*
  67.      *PRINT-GENSYM* *PRINT-LEVEL* *PRINT-LENGTH* *PRINT-ARRAY*
  68.      *READ-DEFAULT-FLOAT-FORMAT* *DEFAULT-PATHNAME-DEFAULTS* *LOAD-VERBOSE*
  69.      *LOAD-PRINT* *LOAD-PATHNAME* *LOAD-TRUENAME* *BREAK-ON-WARNINGS*
  70.      *COMPILE-VERBOSE* *COMPILE-PRINT* *COMPILE-FILE-PATHNAME*
  71.      *COMPILE-FILE-TRUENAME* *FEATURES* *BREAK-ON-SIGNALS* *DEBUGGER-HOOK*
  72.      COERCE TYPE-OF UPGRADED-ARRAY-ELEMENT-TYPE TYPEP SUBTYPEP NULL SYMBOLP
  73.      ATOM CONSP LISTP NUMBERP INTEGERP RATIONALP FLOATP REALP COMPLEXP
  74.      CHARACTERP STRINGP BIT-VECTOR-P VECTORP SIMPLE-VECTOR-P SIMPLE-STRING-P
  75.      SIMPLE-BIT-VECTOR-P ARRAYP PACKAGEP FUNCTIONP COMPILED-FUNCTION-P COMMONP
  76.      EQ EQL EQUAL EQUALP NOT SYMBOL-VALUE SYMBOL-FUNCTION FDEFINITION BOUNDP
  77.      FBOUNDP SPECIAL-FORM-P SET MAKUNBOUND FMAKUNBOUND GET-SETF-METHOD
  78.      GET-SETF-METHOD-MULTIPLE-VALUE APPLY FUNCALL MAPCAR MAPLIST MAPC MAPL
  79.      MAPCAN MAPCON VALUES VALUES-LIST MACRO-FUNCTION MACROEXPAND MACROEXPAND-1
  80.      PROCLAIM GET REMPROP SYMBOL-PLIST GETF GET-PROPERTIES SYMBOL-NAME
  81.      MAKE-SYMBOL COPY-SYMBOL GENSYM GENTEMP SYMBOL-PACKAGE KEYWORDP
  82.      MAKE-PACKAGE IN-PACKAGE FIND-PACKAGE PACKAGE-NAME PACKAGE-NICKNAMES
  83.      RENAME-PACKAGE PACKAGE-USE-LIST PACKAGE-USED-BY-LIST
  84.      PACKAGE-SHADOWING-SYMBOLS LIST-ALL-PACKAGES DELETE-PACKAGE INTERN
  85.      FIND-SYMBOL UNINTERN EXPORT UNEXPORT IMPORT SHADOWING-IMPORT SHADOW
  86.      USE-PACKAGE UNUSE-PACKAGE FIND-ALL-SYMBOLS PROVIDE REQUIRE ZEROP PLUSP
  87.      MINUSP ODDP EVENP = /= < > <= >= MAX MIN + - * / 1+ 1- CONJUGATE GCD LCM
  88.      EXP EXPT LOG SQRT ISQRT ABS PHASE SIGNUM SIN COS TAN CIS ASIN ACOS ATAN
  89.      SINH COSH TANH ASINH ACOSH ATANH FLOAT RATIONAL RATIONALIZE NUMERATOR
  90.      DENOMINATOR FLOOR CEILING TRUNCATE ROUND MOD REM FFLOOR FCEILING FTRUNCATE
  91.      FROUND DECODE-FLOAT SCALE-FLOAT FLOAT-RADIX FLOAT-SIGN FLOAT-DIGITS
  92.      FLOAT-PRECISION INTEGER-DECODE-FLOAT COMPLEX REALPART IMAGPART LOGIOR
  93.      LOGXOR LOGAND LOGEQV LOGNAND LOGNOR LOGANDC1 LOGANDC2 LOGORC1 LOGORC2
  94.      BOOLE LOGNOT LOGTEST LOGBITP ASH LOGCOUNT INTEGER-LENGTH BYTE BYTE-SIZE
  95.      BYTE-POSITION LDB LDB-TEST MASK-FIELD DPB DEPOSIT-FIELD RANDOM
  96.      MAKE-RANDOM-STATE RANDOM-STATE-P STANDARD-CHAR-P GRAPHIC-CHAR-P
  97.      STRING-CHAR-P ALPHA-CHAR-P UPPER-CASE-P LOWER-CASE-P BOTH-CASE-P
  98.      DIGIT-CHAR-P ALPHANUMERICP CHAR= CHAR/= CHAR< CHAR> CHAR<= CHAR>=
  99.      CHAR-EQUAL CHAR-NOT-EQUAL CHAR-LESSP CHAR-GREATERP CHAR-NOT-GREATERP
  100.      CHAR-NOT-LESSP CHAR-CODE CHAR-BITS CHAR-FONT CODE-CHAR MAKE-CHAR CHARACTER
  101.      CHAR-UPCASE CHAR-DOWNCASE DIGIT-CHAR CHAR-INT INT-CHAR CHAR-NAME NAME-CHAR
  102.      CHAR-BIT SET-CHAR-BIT COMPLEMENT CONSTANTLY ELT SUBSEQ COPY-SEQ LENGTH
  103.      REVERSE NREVERSE MAKE-SEQUENCE CONCATENATE MAP MAP-INTO SOME EVERY NOTANY
  104.      NOTEVERY REDUCE FILL REPLACE REMOVE REMOVE-IF REMOVE-IF-NOT DELETE
  105.      DELETE-IF DELETE-IF-NOT REMOVE-DUPLICATES DELETE-DUPLICATES SUBSTITUTE
  106.      SUBSTITUTE-IF SUBSTITUTE-IF-NOT NSUBSTITUTE NSUBSTITUTE-IF
  107.      NSUBSTITUTE-IF-NOT FIND FIND-IF FIND-IF-NOT POSITION POSITION-IF
  108.      POSITION-IF-NOT COUNT COUNT-IF COUNT-IF-NOT MISMATCH SEARCH SORT
  109.      STABLE-SORT MERGE CAR CDR CAAR CADR CDAR CDDR CAAAR CAADR CADAR CADDR
  110.      CDAAR CDADR CDDAR CDDDR CAAAAR CAAADR CAADAR CAADDR CADAAR CADADR CADDAR
  111.      CADDDR CDAAAR CDAADR CDADAR CDADDR CDDAAR CDDADR CDDDAR CDDDDR CONS
  112.      TREE-EQUAL ENDP LIST-LENGTH NTH FIRST SECOND THIRD FOURTH FIFTH SIXTH
  113.      SEVENTH EIGHTH NINTH TENTH REST NTHCDR LAST LIST LIST* MAKE-LIST APPEND
  114.      COPY-LIST COPY-ALIST COPY-TREE REVAPPEND NCONC NRECONC BUTLAST NBUTLAST
  115.      LDIFF RPLACA RPLACD SUBST SUBST-IF SUBST-IF-NOT NSUBST NSUBST-IF
  116.      NSUBST-IF-NOT SUBLIS NSUBLIS MEMBER MEMBER-IF MEMBER-IF-NOT TAILP ADJOIN
  117.      UNION NUNION INTERSECTION NINTERSECTION SET-DIFFERENCE NSET-DIFFERENCE
  118.      SET-EXCLUSIVE-OR NSET-EXCLUSIVE-OR SUBSETP ACONS PAIRLIS ASSOC ASSOC-IF
  119.      ASSOC-IF-NOT RASSOC RASSOC-IF RASSOC-IF-NOT MAKE-HASH-TABLE HASH-TABLE-P
  120.      GETHASH REMHASH MAPHASH CLRHASH HASH-TABLE-COUNT HASH-TABLE-REHASH-SIZE
  121.      HASH-TABLE-REHASH-THRESHOLD HASH-TABLE-SIZE HASH-TABLE-TEST SXHASH
  122.      MAKE-ARRAY VECTOR AREF SVREF ARRAY-ELEMENT-TYPE ARRAY-RANK ARRAY-DIMENSION
  123.      ARRAY-DIMENSIONS ARRAY-TOTAL-SIZE ARRAY-IN-BOUNDS-P ARRAY-ROW-MAJOR-INDEX
  124.      ROW-MAJOR-AREF ADJUSTABLE-ARRAY-P BIT SBIT BIT-AND BIT-IOR BIT-XOR BIT-EQV
  125.      BIT-NAND BIT-NOR BIT-ANDC1 BIT-ANDC2 BIT-ORC1 BIT-ORC2 BIT-NOT
  126.      ARRAY-HAS-FILL-POINTER-P FILL-POINTER VECTOR-PUSH VECTOR-PUSH-EXTEND
  127.      VECTOR-POP ADJUST-ARRAY CHAR SCHAR STRING= STRING-EQUAL STRING< STRING>
  128.      STRING<= STRING>= STRING/= STRING-LESSP STRING-GREATERP
  129.      STRING-NOT-GREATERP STRING-NOT-LESSP STRING-NOT-EQUAL MAKE-STRING
  130.      STRING-TRIM STRING-LEFT-TRIM STRING-RIGHT-TRIM STRING-UPCASE
  131.      STRING-DOWNCASE STRING-CAPITALIZE NSTRING-UPCASE NSTRING-DOWNCASE
  132.      NSTRING-CAPITALIZE STRING EVAL EVALHOOK APPLYHOOK CONSTANTP
  133.      MAKE-SYNONYM-STREAM MAKE-BROADCAST-STREAM MAKE-CONCATENATED-STREAM
  134.      MAKE-TWO-WAY-STREAM MAKE-ECHO-STREAM MAKE-STRING-INPUT-STREAM
  135.      MAKE-STRING-OUTPUT-STREAM GET-OUTPUT-STREAM-STRING STREAMP OPEN-STREAM-P
  136.      INPUT-STREAM-P OUTPUT-STREAM-P STREAM-ELEMENT-TYPE CLOSE
  137.      BROADCAST-STREAM-STREAMS CONCATENATED-STREAM-STREAMS
  138.      ECHO-STREAM-INPUT-STREAM ECHO-STREAM-OUTPUT-STREAM SYNONYM-STREAM-SYMBOL
  139.      TWO-WAY-STREAM-INPUT-STREAM TWO-WAY-STREAM-OUTPUT-STREAM
  140.      INTERACTIVE-STREAM-P COPY-READTABLE READTABLEP SET-SYNTAX-FROM-CHAR
  141.      SET-MACRO-CHARACTER GET-MACRO-CHARACTER MAKE-DISPATCH-MACRO-CHARACTER
  142.      SET-DISPATCH-MACRO-CHARACTER GET-DISPATCH-MACRO-CHARACTER READTABLE-CASE
  143.      READ READ-PRESERVING-WHITESPACE READ-DELIMITED-LIST READ-LINE READ-CHAR
  144.      UNREAD-CHAR PEEK-CHAR LISTEN READ-CHAR-NO-HANG CLEAR-INPUT
  145.      READ-FROM-STRING PARSE-INTEGER READ-BYTE WRITE PRIN1 PRINT PPRINT PRINC
  146.      WRITE-TO-STRING PRIN1-TO-STRING PRINC-TO-STRING WRITE-CHAR WRITE-STRING
  147.      WRITE-LINE TERPRI FRESH-LINE FINISH-OUTPUT FORCE-OUTPUT CLEAR-OUTPUT
  148.      WRITE-BYTE FORMAT Y-OR-N-P YES-OR-NO-P WILD-PATHNAME-P PATHNAME-MATCH-P
  149.      TRANSLATE-PATHNAME LOGICAL-PATHNAME TRANSLATE-LOGICAL-PATHNAME
  150.      LOGICAL-PATHNAME-TRANSLATIONS LOAD-LOGICAL-PATHNAME-TRANSLATIONS
  151.      COMPILE-FILE-PATHNAME PATHNAME TRUENAME PARSE-NAMESTRING MERGE-PATHNAMES
  152.      MAKE-PATHNAME PATHNAMEP PATHNAME-HOST PATHNAME-DEVICE PATHNAME-DIRECTORY
  153.      PATHNAME-NAME PATHNAME-TYPE PATHNAME-VERSION NAMESTRING FILE-NAMESTRING
  154.      DIRECTORY-NAMESTRING HOST-NAMESTRING ENOUGH-NAMESTRING
  155.      USER-HOMEDIR-PATHNAME OPEN RENAME-FILE DELETE-FILE PROBE-FILE
  156.      FILE-WRITE-DATE FILE-AUTHOR FILE-POSITION FILE-LENGTH LOAD DIRECTORY ERROR
  157.      CERROR WARN BREAK COMPILE COMPILE-FILE DISASSEMBLE
  158.      FUNCTION-LAMBDA-EXPRESSION DOCUMENTATION VARIABLE STRUCTURE TYPE DESCRIBE
  159.      DESCRIBE-OBJECT INSPECT ROOM ED DRIBBLE APROPOS APROPOS-LIST
  160.      GET-DECODED-TIME GET-UNIVERSAL-TIME DECODE-UNIVERSAL-TIME
  161.      ENCODE-UNIVERSAL-TIME GET-INTERNAL-RUN-TIME GET-INTERNAL-REAL-TIME SLEEP
  162.      LISP-IMPLEMENTATION-TYPE LISP-IMPLEMENTATION-VERSION MACHINE-TYPE
  163.      MACHINE-VERSION MACHINE-INSTANCE SOFTWARE-TYPE SOFTWARE-VERSION
  164.      SHORT-SITE-NAME LONG-SITE-NAME IDENTITY ADD-METHOD CALL-NEXT-METHOD
  165.      CLASS-NAME CLASS-OF COMPUTE-APPLICABLE-METHODS FIND-CLASS FIND-METHOD
  166.      FUNCTION-KEYWORDS INITIALIZE-INSTANCE MAKE-INSTANCE METHOD-QUALIFIERS
  167.      NEXT-METHOD-P NO-APPLICABLE-METHOD NO-NEXT-METHOD PRINT-OBJECT
  168.      REINITIALIZE-INSTANCE REMOVE-METHOD SHARED-INITIALIZE SLOT-BOUNDP
  169.      SLOT-EXISTS-P SLOT-MAKUNBOUND SLOT-MISSING SLOT-UNBOUND SLOT-VALUE SIGNAL
  170.      MAKE-CONDITION COMPUTE-RESTARTS RESTART-NAME FIND-RESTART INVOKE-RESTART
  171.      INVOKE-RESTART-INTERACTIVELY ABORT CONTINUE MUFFLE-WARNING STORE-VALUE
  172.      USE-VALUE INVOKE-DEBUGGER SIMPLE-CONDITION-FORMAT-STRING
  173.      SIMPLE-CONDITION-FORMAT-ARGUMENTS TYPE-ERROR-DATUM
  174.      TYPE-ERROR-EXPECTED-TYPE PACKAGE-ERROR-PACKAGE PRINT-NOT-READABLE-OBJECT
  175.      STREAM-ERROR-STREAM FILE-ERROR-PATHNAME CELL-ERROR-NAME
  176.      ARITHMETIC-ERROR-OPERATION ARITHMETIC-ERROR-OPERANDS EVAL-WHEN QUOTE
  177.      FUNCTION SETQ PROGN LET LET* LOCALLY COMPILER-LET PROGV FLET LABELS
  178.      MACROLET SYMBOL-MACROLET IF BLOCK RETURN-FROM TAGBODY GO
  179.      MULTIPLE-VALUE-CALL MULTIPLE-VALUE-PROG1 CATCH UNWIND-PROTECT THROW
  180.      DECLARE THE LOAD-TIME-VALUE DEFTYPE DEFUN DEFVAR DEFPARAMETER DEFCONSTANT
  181.      AND OR PSETQ SETF PSETF SHIFTF ROTATEF DEFINE-MODIFY-MACRO DEFSETF
  182.      DEFINE-SETF-METHOD PROG1 PROG2 WHEN UNLESS COND CASE TYPECASE OTHERWISE
  183.      RETURN LOOP DO DO* DOLIST DOTIMES PROG PROG* MULTIPLE-VALUE-LIST
  184.      MULTIPLE-VALUE-BIND MULTIPLE-VALUE-SETQ NTH-VALUE DEFMACRO
  185.      DESTRUCTURING-BIND DECLAIM REMF DEFPACKAGE DO-SYMBOLS DO-EXTERNAL-SYMBOLS
  186.      DO-ALL-SYMBOLS INCF DECF PUSH PUSHNEW POP WITH-HASH-TABLE-ITERATOR
  187.      DEFSTRUCT WITH-OPEN-STREAM WITH-INPUT-FROM-STRING WITH-OUTPUT-TO-STRING
  188.      WITH-STANDARD-IO-SYNTAX PRINT-UNREADABLE-OBJECT WITH-OPEN-FILE CHECK-TYPE
  189.      ASSERT ETYPECASE CTYPECASE ECASE CCASE TRACE UNTRACE STEP TIME LOOP-FINISH
  190.      FORMATTER DEFCLASS DEFGENERIC DEFMETHOD GENERIC-FLET GENERIC-FUNCTION
  191.      GENERIC-LABELS WITH-ACCESSORS WITH-SLOTS CHECK-TYPE ASSERT ETYPECASE
  192.      CTYPECASE ECASE CCASE HANDLER-CASE IGNORE-ERRORS HANDLER-BIND
  193.      DEFINE-CONDITION WITH-SIMPLE-RESTART RESTART-CASE RESTART-BIND
  194.      WITH-CONDITION-RESTARTS LAMBDA &OPTIONAL &REST &KEY &ALLOW-OTHER-KEYS &AUX
  195.      &BODY &WHOLE &ENVIRONMENT EVAL LOAD COMPILE SPECIAL TYPE FTYPE FUNCTION
  196.      INLINE NOTINLINE IGNORE IGNORABLE OPTIMIZE SPEED SPACE SAFETY
  197.      COMPILATION-SPEED DEBUG DECLARATION DYNAMIC-EXTENT STANDARD
  198.   ))
  199. #Y(#:TOP-LEVEL-FORM-4 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 02 30 E4 19 01)
  200.    "SYSTEM"
  201.   )
  202. #Y(#:TOP-LEVEL-FORM-5
  203.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  204.    COMMON-LISP:MAKE-PACKAGE REMOVE-OLD-DEFINITIONS
  205.    #Y(COMMON-LISP:MAKE-PACKAGE
  206.       #28Y(00 00 00 00 01 00 00 00 80 1C 02 00 00 00 3C 02 3A 01 02 C5 F7 AD AD
  207.            AD 30 E2 19 04
  208.           )
  209.       :NICKNAMES :USE ("COMMON-LISP")
  210.   )  )
  211. #Y(#:TOP-LEVEL-FORM-6
  212.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  213.    EXPAND-FUNDEFS REMOVE-OLD-DEFINITIONS
  214.    #Y(EXPAND-FUNDEFS
  215.       #115Y(00 00 00 00 03 00 00 00 00 04 62 9E 1F 80 5B 93 03 82 04 9B 1F 04
  216.             9B 5B 20 24 D8 DD DE DF 6D 03 04 B1 9E 14 32 02 1F D8 D9 DA DB 6D
  217.             03 04 B0 A1 1A 71 E0 9F 79 60 01 1A 17 14 60 01 1A 17 9B 5B 78 63
  218.             AF 30 63 41 03 93 03 9F 5B 77 91 03 63 00 14 91 03 65 00 14 E1 93
  219.             08 A3 7B 02 7A 01 32 03 23 7B 02 83 04 16 04 1A FF A1 91 03 FF B9
  220.             AA 31 4C 19 05
  221.            )
  222.       PROGRAM-ERROR "code after ~S contains a dotted list, ending with ~S"
  223.       "Dotted list im Code von ~S, endet mit ~S"
  224.       "Le code de ~S contient une paire pointΘe, terminΘe par ~S" LANGUAGE
  225.       "Illegal function definition syntax in ~S: ~S"
  226.       "Falsche Syntax einer Funktionsdefinition in ~S: ~S"
  227.       "Mauvaise syntaxe de dΘfinition de fonction dans ~S : ~S" DECLARE BLOCK
  228.   )  )
  229. #Y(#:TOP-LEVEL-FORM-7
  230.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  231.    COMMON-LISP:FLET REMOVE-OLD-DEFINITIONS MACRO
  232.    #Y(COMMON-LISP:FLET
  233.       #63Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2F 1D 9D 5B 77
  234.            9E 5B 78 AA 62 AF 30 63 41 02 DA DB AF B2 6D 03 04 9E 7B 02 91 01 08
  235.            15 19 07 AC 2E 01 19 03 DD DE 9E 79 AC 60 03 19 08
  236.           )
  237.       2. MACRO-CALL-ERROR FLET COMMON-LISP:FLET EXPAND-FUNDEFS LOCALLY DECLARE
  238.   )  )
  239. #Y(#:TOP-LEVEL-FORM-8
  240.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  241.    COMMON-LISP:LABELS REMOVE-OLD-DEFINITIONS MACRO
  242.    #Y(COMMON-LISP:LABELS
  243.       #63Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2F 1D 9D 5B 77
  244.            9E 5B 78 AA 62 AF 30 63 41 02 DA DB AF B2 6D 03 04 9E 7B 02 91 01 08
  245.            15 19 07 AC 2E 01 19 03 DD DE 9E 79 AC 60 03 19 08
  246.           )
  247.       2. MACRO-CALL-ERROR LABELS COMMON-LISP:LABELS EXPAND-FUNDEFS LOCALLY
  248.       DECLARE
  249.   )  )
  250. #Y(#:TOP-LEVEL-FORM-9
  251.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  252.    COMMON-LISP:MACROLET REMOVE-OLD-DEFINITIONS MACRO
  253.    #Y(COMMON-LISP:MACROLET
  254.       #59Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2F 17 9D 5B 77
  255.            9E 5B 78 AA 62 AF 30 63 41 02 DA AE 91 02 0A 9E 61 02 19 07 AC 2E 01
  256.            19 03 DB DC 9F 79 A0 7B 02 60 01 1A 6C
  257.           )
  258.       2. MACRO-CALL-ERROR MACROLET LOCALLY DECLARE
  259.   )  )
  260. #Y(#:TOP-LEVEL-FORM-10-1
  261.    #18Y(00 00 00 00 00 00 00 00 00 01 D8 D9 62 30 E3 3D 19 01)
  262.    "COMMON-LISP-USER" ("CL-USER")
  263.   )
  264. #Y(#:TOP-LEVEL-FORM-10-2
  265.    #17Y(00 00 00 00 00 00 00 00 00 01 D8 D9 30 E0 3D 19 01) ("COMMON-LISP")
  266.    "COMMON-LISP-USER"
  267.   )
  268. #Y(#:TOP-LEVEL-FORM-10-3 #15Y(00 00 00 00 00 00 00 00 00 01 D8 30 D0 19 01)
  269.    "COMMON-LISP-USER"
  270.   )
  271.